home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 3 / 64er_Magazin_Sonderheft_03_86-03_1986_Markt__Technik_de_Side_A.d64 / das boot (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  13KB  |  323 lines
  1. 0 dimx$(17),y$(20),z$(23),sn(176),sd(133),sa(66),sq(92)
  2. 10 qw=36878:er=36877:ty=36875:ui=36879:le=1:xy=4102:yx=4103:a$=chr$(147):zx=36876
  3. 11 kl=36874:hi=750:p1=500
  4. 200 printa$:pokeui,8:poke36869,205:gosub229
  5. 210 gosub5000
  6. 220 gosub52000:gosub52100:gosub53000:gosub52600:goto315
  7. 229 x$(0)="[147][144][146][162][163][162][163][162][163] sc [146]    hi      "
  8. 230 x$(1)="          123[146]    %&[146]   "
  9. 231 x$(2)="          456[146]    '([146]   "
  10. 232 x$(3)="  123[146]    -0.[146]          "
  11. 233 x$(4)="  456[146]   -yyy.,-.[146] ,[146]    "
  12. 234 x$(5)="       -yyyyyyyy/y.[146]   "
  13. 235 x$(6)="     -0yyyyyyyyyyyy.,,[146]"
  14. 236 x$(7)=" ,-.-yyyyyyyyyyyyyyyyy[146]"
  15. 237 x$(8)="-wwwwwyywwwwwwwyyywwww[146]"
  16. 238 x$(9)="@@@@@@rnx[146]@@@@@@syo[146]@@@ "
  17. 239 x$(10)="kkmx[146]@@so[146]@@@x[146]@@@ryo[146]@@kk[146]"
  18. 240 x$(11)="yyn[146]@@@rn[146]@@@vp[146]@@syn[146]@@ry[146]"
  19. 241 x$(13)="yyn[146]@@@tux[146]@@rn[146]@@twu[146]@@ry[146]yyo[146]@@@@@@@@so[146]@@@@@@@ry[146]"
  20. 242 x$(12)="yyo[146]@@xso[146]@@@rn[146]@@ryo[146]@@sy[146]"
  21. 243 x$(14)="yypklklm[146]@@vqo[146]@@x[146]@@@@ry[146]"
  22. 244 x$(15)="yyyyyyyn!!ryn[146]@@@@@@@sy[146]"
  23. 245 x$(16)="yyyyyyyyklyyplklklkkq"
  24. 246 y$(0)="[147][159][146][162][163][162][163][162][163] sc [146]    hi      "
  25. 247 y$(1)=" $[146]                    "
  26. 248 y$(2)="     $[146]       +[146]      $[146] "
  27. 249 y$(3)="   )[146]     $[146]      $[146]     "
  28. 250 y$(4)="   *$[146]            +[146]    "
  29. 251 y$(5)=" +[146]                  +-[146]"
  30. 252 y$(6)="     $[146] +[146]          $[146] -y[146]"
  31. 253 y$(7)="          -/.[146]    -,0yy[146]"
  32. 254 y$(8)=".[146] $[146]  -.[146]  -yyy.,,0yyyyy[146]"
  33. 255 y$(9)="y.,,-yy.-yyyyyyyyyyyyy[146]"
  34. 256 y$(10)="ywwyywwyywwwwwwwwwwwwy[146]"
  35. 257 y$(11)="n[146]@@sn[146]@@ro[146]@@@@@@@@@@@@r[146]"
  36. 258 y$(12)="n[146]@@tu[146]@@so[146]@@vml[146]@@kll[146]@@s[146]"
  37. 259 y$(13)="o[146]@@@@@xrn[146]@@syo!!syn[146]@@s[146]"
  38. 260 y$(14)="n[146]@@x[146]@@@ro[146]@@syyyyyyo[146]@@r[146]"
  39. 261 y$(15)="o[146]@@vm[146]@@tu[146]@@ryywwwwu[146]@@s[146]"
  40. 262 y$(16)="o[146]@@sn[146]@@@@@@syo[146]@@@@@@@r[146]"
  41. 263 y$(17)="n[146]@@ro[146]@@@@@@ryn[146]@@@vlkly[146]"
  42. 264 y$(18)="o[146]@@sylkkm[146]@@ryo[146]@@@twwww[146]"
  43. 265 y$(19)="n[146]@@syyyyo!!syo[146]@@@@@@@ "
  44. 266 y$(20)="yklyyyyyyklyyylkllkll[146]"
  45. 267 z$(0)="[147][158][146][162][163][162][163][162][163] sc [146]    hi      "
  46. 268 z$(1)="wwwwwwyyyyyyyyyyyyyyyy[146]"
  47. 269 z$(2)="@@@@@@twwwwwwyywwwwwyy[146]"
  48. 270 z$(3)="@@qm[146]@@@@@@@@@tu[146]@@@@@ry[146]"
  49. 271 z$(4)="klyn[146]@@@@@vp[146]@@@@@@@@@sy[146]"
  50. 272 z$(5)="ywwu[146]@@vklyykllkklm[146]@@sy[146]"
  51. 273 z$(6)="n[146]@@@@@ryyyyyyyyyyo[146]@@tw[146]"
  52. 274 z$(7)="o[146]@@klkyyyyyyyyyyyu[146]@@@ "
  53. 275 z$(8)="n[146]@@twwwwwyywwwyyn!!vlk[146]"
  54. 276 z$(9)="o[146]@@@@@@@@tu[146]@@@ryo[146]@@syy[146]"
  55. 277 z$(10)="n[146]@@@@qm[146]@@@@@@@syn[146]@@ryy[146]"
  56. 278 z$(11)="o[146]@@vlyyklklm[146]@@ryo[146]@@syy[146]"
  57. 279 z$(12)="n[146]@@syyyyyyyn[146]@@syn[146]@@ryy[146]"
  58. 280 z$(13)="n[146]@@sywwywwwu[146]@@syn[146]@@syy[146]"
  59. 281 z$(14)="o[146]@@rn!!s!![146]@@@@ryo[146]@@syy[146]"
  60. 282 z$(15)="n[146]@@so[146]@@rkllklkqyn[146]@@ryy[146]"
  61. 283 z$(16)="o[146]@@tu[146]@@twwwwwwyyo[146]@@syy[146]"
  62. 284 z$(17)="n[146]@@@@@@@@@@@@@twu[146]@@ryy[146]"
  63. 285 z$(18)="o!!vlkmvm[146]@@@@@@@@@@tyy[146]"
  64. 286 z$(19)="yklyyyyyn[146]@@vkllklkm[146]@sy[146]"
  65. 287 z$(20)="yyyyyyyyn[146]@@syyyyyyylyy[146]"
  66. 288 z$(21)="yyyyyyyyo!!ryyyyyyyyyy[146]"
  67. 289 z$(22)="yyyyyyyyyklyyyyyyyyyy[146]":return
  68. 300 forw=0to22:printz$(w);:next:poke4601,153:end
  69. 315 ifle=1thenprinta$:pokeui,8:goto52300
  70. 316 ifle=2thenprinta$:pokeui,8:goto60000
  71. 317 ifle=3thenprinta$:pokeui,8:goto52400
  72. 318 ifle=4thenprinta$:pokeui,8:goto61000
  73. 319 ifle=5thenprinta$:pokeui,8:goto52500
  74. 320 ifle=6thenprinta$:pokeui,8:goto62000
  75. 730 poke37154,127:ifpeek(37152)=119thengoto1100
  76. 740 poke37154,255:j=peek(37151):if(jand4)=.thengoto800
  77. 750 if(jand8)=.thengoto900
  78. 760 if(jand16)=.thengoto1000
  79. 792 goto730
  80. 800 ifpeek(a-22)=161thengosub2500:gosub3000:goto730
  81. 820 ifpeek(a-22)orpeek(b-22)<>0thengoto1500
  82. 840 d=123
  83. 850 pokea,118:pokeb,119:pokeb-22,120:pokea,121:pokeb,122
  84. 855 fort=1to3:pokea-22,d:pokeb-22,d+1:pokea,d+2:pokeb,d+3:d=d+4:next:pokea,0:pokeb,0:a=a-22
  85. 857 b=b-22
  86. 860 pokea,135:pokeb,136:pokea,137:pokeb,138:pokea,98:pokeb,99:gosub4000:goto1700
  87. 900 ifpeek(a+22)=161thengosub2600:gosub3000:goto730
  88. 910 ifpeek(a+22)orpeek(b+22)<>0thengoto1500
  89. 930 f=131
  90. 935 pokea,137:pokeb,138:pokea,135:pokeb,136
  91. 940 fort=1to3:pokea,f:pokeb,f+1:pokea+22,f+2:pokeb+22,f+3:f=f-4:next
  92. 945 pokea,0:pokeb,0:a=a+22:b=b+22:pokea,118:pokeb,119:pokea,98:pokeb,99:gosub4000:goto1800
  93. 1000 ifpeek(a-1)=161thengosub2700:gosub3000:goto730
  94. 1020 ifpeek(a-1)<>0thengoto1500
  95. 1030 e=117
  96. 1035 pokeb,162:pokea,163
  97. 1040 fort=1to6:pokeb,e:pokea,e-1:pokea-1,e-2:e=e-3:next
  98. 1050 pokeb,0:a=a-1:b=b-1:pokea,98:pokeb,99
  99. 1060 gosub4000:goto1900
  100. 1100 ifpeek(b+1)=32then le=le+1:goto315
  101. 1110 ifpeek(b+1)<>0thengoto1500
  102. 1119 c=100
  103. 1120 fort=1to6:pokea,c:pokeb,c+1:pokeb+1,c+2:c=c+3:next:pokea,0
  104. 1125 a=a+1:b=b+1:pokea,163:pokeb,162
  105. 1130 pokea,98:pokeb,99:gosub4000:goto2000
  106. 1500 pokea,154:pokeb,155:pokeqw,10:pokeer,151:fori=1to400:next:pokeqw,0
  107. 1501 pokea,156:pokeb,157:pokeqw,5
  108. 1502 fort=1to400:next
  109. 1503 pokea,158:pokeb,159:pokeqw,15:fort=0to400:next:pokeqw,0:pokea,0:pokeb,0:pokeer,0
  110. 1510 ifle=1thena=4404:b=4405:pokea,98:pokeb,99
  111. 1520 ifle=3thena=4559:b=4560:pokea,98:pokeb,99
  112. 1530 ifle=5thena=4162:b=4163:pokea,98:pokeb,99
  113. 1532 p1=p1-100:print"[156]";p1
  114. 1544 xy=xy-2:yx=yx-2:pokexy,0:pokeyx,0           
  115. 1549 ifxy=4096thengosub54000
  116. 1550 goto730
  117. 1700 poke37154,127:ifpeek(37152)=119thengoto1100
  118. 1710 poke37154,255:j=peek(37151)
  119. 1720 if(jand8)=.thengoto900
  120. 1730 if(jand16)=.thengoto1000
  121. 1740 goto800
  122. 1800 poke37154,127:ifpeek(37152)=119thengoto1100
  123. 1810 poke37154,255:j=peek(37151):if(jand4)=.thengoto800
  124. 1820 if(jand16)=.thengoto1000
  125. 1830 goto900
  126. 1900 poke37154,127:ifpeek(37152)=119thengoto1100
  127. 1910 poke37154,255:j=peek(37151):if(jand4)=.thengoto800
  128. 1920 if(jand8)=.thengoto900
  129. 1930 goto1000
  130. 2000 poke37154,127
  131. 2010 poke37154,255:j=peek(37151):if(jand4)=.thengoto800
  132. 2020 if(jand8)=.thengoto900
  133. 2030 if(jand16)=.then1000
  134. 2040 goto1100
  135. 2500 a=a-22:b=b-22:pokea,98:pokeb,99:pokea+22,0:pokeb+22,0:return
  136. 2600 a=a+22:b=b+22:pokea,98:pokeb,99:pokea-22,0:pokeb-22,0:return
  137. 2700 a=a-2:b=b-2:pokea,98:pokeb,99:pokea+2,0:pokeb+2,0:return
  138. 3000 fort=0to19:pokeqw,15:pokety,220:pokety,0
  139. 3010 pokety,200:pokety,0:pokeqw,0:p1=p1+10:print"[156]";p1:next
  140. 3020 pokea,98:pokeb,99:return
  141. 4000 p1=p1-2:print"[156]";p1:ifp1<5thengoto54000
  142. 4010 return
  143. 5000 fori=0to175:readsn(i):nexti
  144. 5100 fori=0to132:readsd(i):nexti
  145. 5200 fori=0to65:readsa(i):nexti
  146. 5300 fori=0to91:readsq(i):nexti:return
  147. 6000 pokeqw,15:pokeer,200:fori=1to20:next:pokeer,0
  148. 6005 pokeer,180:fori=1to20:next:pokeer,0:pokeqw,0:return
  149. 7000 forj=0to3000:next
  150. 7003 print"[147][158]                    ":fort=0to1200:next:goto52000
  151. 8000 data0,18,15,0,13,1,0,19,15,6,20,0,16,18,5,19,5,14,20,19,0,0
  152. 8010 data0,0,0,0,0,0,1,0,7,1,13,5,0,2,25,0,0,0,0,0,0,0
  153. 8020 data0,0,0,0,18,15,7,5,18,0,4,5,19,9,4,5,18,9,0,0,0,0
  154. 8030 data0,0,0,0,0,0,0,0,0,1,14,4,0,0,0,0,0,0,0,0,0,0
  155. 8040 data0,0,0,0,13,1,18,20,9,14,0,7,18,26,9,2,5,11,0,0,0,0
  156. 8050 data0,13,21,19,9,3,0,20,18,1,14,19,12,1,20,5,4,0,2,25,0,0
  157. 8060 data0,0,0,14,15,18,2,5,18,20,0,7,18,26,9,2,5,11,0,0,0,0
  158. 8070 data0,0,0,16,18,5,19,19,0,6,9,18,5,0,2,21,20,20,15,14,0,0
  159. 9000 data0,0,0,0,0,0,0,0,0,85,87,89,91,93,95,0,0,0,0,0,0,0
  160. 9010 data0,0,0,0,0,0,0,0,0,86,88,90,92,94,97,0,0,0,0,0,0,0
  161. 9020 data0,0,0,0,0,0,27,31,37,41,45,59,63,67,71,75,79,0,0,0,0,0
  162. 9030 data0,0,0,0,0,0,28,33,38,42,46,60,64,68,72,76,80,83,0,0,0,0
  163. 9040 data0,0,0,0,0,0,29,35,39,43,47,61,65,69,73,77,81,0,0,0,0,0
  164. 9050 data0,0,0,0,0,0,30,36,40,44,58,62,66,70,74,78,82,84,0,0,0,0
  165. 10000 data0,0,0,0,0,0,12,5,22,5,12,0,0,0,9,0,0,0,0,0,0,0
  166. 10010 data0,0,0,0,0,0,12,5,22,5,12,0,0,9,9,0,0,0,0,0,0,0
  167. 10020 data0,0,0,0,0,0,12,5,22,5,12,0,9,9,9,0,0,0,0,0,0,0,0
  168. 11000 data151,1000,147,250,135,250,147,250,151,250,175,250,187,1000,-3,151,1000,147,250,135
  169. 11010 data250,147,250,151,250,175,250,187,500,183,250,175,250,183,250,187,250,201,250
  170. 11020 data209,1000,-3,151,1000,147,250,135,250,147,250,151,250,175,250,187,500,183,250
  171. 11021 data175,250
  172. 11030 data183,250,187,250,201,250,209,250,207,250,201,250,207,250,209,250,219,250,225,250
  173. 11040 data223,250,219,250,223,250,225,250,231,250,235,0
  174. 50000 a=4404:b=4405:pokea,98:pokeb,99:goto730
  175. 52000 a=4338:printa$:forf=38130to38152:pokef,7:next
  176. 52001 fort=0to21:pokea+t,sn(k):k=k+1:ifk=153thenforu=0to3000:next:return
  177. 52002 ifsn(k)=0thennext:goto7000
  178. 52003 gosub6000:next
  179. 52021 poke38191,3:poke38192,2:poke38194,7:poke38195,5
  180. 52100 p1=500:poke36865,155:d=4294:printa$:forf=38086to38218:pokef,7:next
  181. 52110 fory=0to131:poked+y,sd(y):next:poke36865,38:pokeqw,15:forf=230to140step-1
  182. 52120 pokeqw-2,f:pokeqw-3,f+1:next:pokeqw-4,140:forf=1to500:next:forf=15to0step-.007:pokeqw,f:next
  183. 52130 pokeqw-4,0:pokeqw-3,0:pokeqw-2,0:return
  184. 52300 h=4339:forf=38130to38152:pokef,7:next
  185. 52310 forb=0to21:pokeh+b,sa(b):ifsa(b)=0then52330
  186. 52320 gosub6000
  187. 52330 next
  188. 52399 gosub58000:goto52700
  189. 52400 h=4340:forf=38130to38152:pokef,7:next
  190. 52410 forb=22to43:pokeh+b-22,sa(b):ifsa(b)=0then52430
  191. 52420 gosub6000
  192. 52430 next:gosub58000:goto52800
  193. 52500 h=4338:forf=38130to38152:pokef,7:next
  194. 52510 forb=44to60:pokeh+b-43,sa(b):ifsa(b)=0then52530
  195. 52520 gosub6000
  196. 52530 next:gosub58000:goto52900
  197. 52600 h=4338:forf=38284to38306:pokef,7:next
  198. 52610 forb=154to175:pokeh+b,sn(b):ifsn(b)=0then52630
  199. 52620 gosub6000
  200. 52630 next
  201. 52640 ifpeek(37154-3)and32then52640
  202. 52650 return
  203. 52700 aa=37888:cz=4096:a=4404:b=4405:poke36865,155
  204. 52710 fory=0to16:printx$(y);:next:poke4601,153:print"500"
  205. 52712 foryu=37888to37888+505:pokeyu,0:next
  206. 52715 pokea,98:pokeb,99
  207. 52720 pokeaa+98,6:pokeaa+99,6:pokeaa+100,6:pokeaa+120,6:pokeaa+121,6:pokeaa+122,6
  208. 52721 pokeaa+105,7:pokeaa+106,7:pokeaa+127,7:pokeaa+128,7:pokeaa+178,6:pokeaa+179,6
  209. 52722 pokeaa+180,6:pokeaa+200,6:pokeaa+201,6:pokeaa+202,6
  210. 52723 poke38221,7:poke38204,2:poke38229,6:poke38267,4:poke38292,7:poke38343,2
  211. 52724 poke38358,4:poke38359,2:poke36865,38:pokeui,186:print"[156]";p1
  212. 52725 print"";hi
  213. 52799 goto730
  214. 52800 xy=4102:yx=4103:qa=4096:poke36865,155
  215. 52805 fort=0to20:printy$(t);:next:poke4601,139
  216. 52806 foryu=37888to37888+505:pokeyu,0:next
  217. 52810 poke4559,98:poke4560,99:a=4559
  218. 52815 b=4560
  219. 52816 foru=38024to38394:pokeu,5:next
  220. 52820 poke37911,7:poke37937,7:poke37945,7:poke37952,7:poke37979,7
  221. 52821 poke37985,7:poke37992,7:poke38001,7:poke38002,7:poke38015,7:poke38043,7
  222. 52822 poke38062,7:poke38082,7:poke38069,7:poke38071,7:poke38110,7
  223. 52823 poke38243,3:poke38224,0
  224. 52824 poke38232,7:poke38233,2:poke38359,0:poke38360,1
  225. 52897 print"[156]";p1:poke36865,38:pokeui,106
  226. 52898 print"";hi
  227. 52899 goto730
  228. 52900 xy=4102:yx=4103:qa=4096:poke36865,155
  229. 52910 forw=0to22:printz$(w);:next:poke4601,153
  230. 52912 foryu=37888to37888+505:pokeyu,0:next
  231. 52915 a=4162:b=4163:pokea,98:pokeb,99
  232. 52920 forsd=37888to38393:pokesd,3:next
  233. 52921 poke38081,5:poke38082,2:poke38201,7:poke38202,5:poke38204,1:poke38205,4
  234. 52922 poke38286,4:poke38285,6:poke38359,5:poke38360,1
  235. 52998 print"[156]";p1:poke36865,38:pokeui,10
  236. 52999 print"";hi:goto730
  237. 53000 d=0
  238. 53001 forp=3to15step.5:pokeqw,p
  239. 53009 ifsq(d)=-3thend=d+1:v=d:gosub53110:goto53001
  240. 53010 pokety,sq(d):pokezx,sq(d):d=d+1
  241. 53012 fort=0tosq(d):next:d=d+1:forq=0to300:next
  242. 53097 ifsq(d)=0thengosub53120:return
  243. 53100 next:goto53009
  244. 53110 fore=6to0step-.008:pokeqw,e:next:pokeqw,0:pokety,0:pokezx,0:return
  245. 53120 fore=14to0step-.008:pokeqw,e:next:pokeqw,0:pokety,0:pokezx,0:return
  246. 54000 printa$:pokeui,8
  247. 54010 print"[158]the end"
  248. 54040 fory=0to1000:next:le=1:xy=4102:yx=4103:gosub54100:gosub52100:gosub52600:goto315
  249. 54100 ifp1>hithenhi=p1:print"[147][158]you have broken the   highscore":gosub56000:gosub57000
  250. 54500 ifp1<hithenprint"[147][158]you have not reached  the highscore ":gosub56000:goto57000
  251. 54501 return
  252. 56000 pokeqw,15:forl=1to20:form=220-lto210-lstep-4:pokezx,m:nextm:form=160-lto170-lstep4
  253. 56001 pokezx,m:nextm:nextl:pokeqw,0:pokezx,0
  254. 56002 fort=1to3000:next:xy=4102:yx=4103:return
  255. 57000 print"[158]score    ";p1:gosub56000
  256. 57010 print"[158]the highscore ";hi:gosub56000:return
  257. 58000 ra=151:rf=1
  258. 58001 a=4404:b=4405:print"":forx=1to22:poke646,rnd(1)*6+2:print" ";:next
  259. 58010 foras=4404to4423:c=100
  260. 58020 fort=1to6:pokea,c:pokeb,c+1:pokeb+1,c+2:c=c+3:gosub58050:next:pokea,0:a=a+1:b=b+1:pokea,163
  261. 58030 pokeb,162:gosub58050:pokea,98:pokeb,99:gosub58050
  262. 58040 pokeqw,rf:pokety,ra:rf=rf+.7:ra=ra+1:next:pokeqw,0:pokety,0:return
  263. 58050 forp=1to25:next:return
  264. 60000 gosub63000
  265. 60020 print"[147]johann der maschinist ist wahnsinnig "
  266. 60030 print"was tun"
  267. 60040 print"1  ihn beruihgen"
  268. 60050 print"2  ihn schlagen"
  269. 60060 print"3  ihn einsperren"
  270. 60070 zu=int(rnd(1)*3)+1
  271. 60080 getvu
  272. 60090 ifvu=1then60200
  273. 60100 ifvu=2then60300
  274. 60110 ifvu=3then60400
  275. 60120 ifvu<>1orvu<>2orvu<>3then60080
  276. 60130 printa$
  277. 60200 ifvu=zuthenprint"er hat seinen fehler eingesehen":p1=p1+500:le=le+1:gosub56000:goto315
  278. 60210 ifvu<>zuthenprint"er schlaegt sie":le=le+1:gosub56000:goto315
  279. 60300 ifvu=zuthenprint"er ist wieder normal":p1=p1+500:le=le+1:gosub56000:goto315
  280. 60310 ifvu<>zuthenprint"sie haben ihn tod     geschlagen":le=le+1:gosub56000:goto315
  281. 60400 ifvu=zuthenprint"er hat zusich gefunden":le=le+1:p1=p1+1:gosub56000:goto315
  282. 60410 ifvu<>zuthenprint"er hat sich auf       gehaengt":le=le+1:p1=p1+1:gosub56000:goto315
  283. 61000 gosub63000
  284. 61020 print"[147]sie treffen mit einem deutschen u boot      zusammen es hat keinen"
  285. 61025 print"proviant mehr         wieviel geben sie"
  286. 61040 print"1  3 proviant"
  287. 61050 print"2  5 proviant"
  288. 61060 print"3  garnichts "
  289. 61070 zu=int(rnd(1)*3)+1
  290. 61080 getvu
  291. 61090 ifvu=1then61200
  292. 61100 ifvu=2then61300
  293. 61110 ifvu=3then61400
  294. 61120 ifvu<>1orvu<>2orvu<>3then61080
  295. 61130 printa$
  296. 61200 ifvu=zuthenprint"das war human         500 punkte":p1=p1+500:le=le+1:gosub56000:goto315
  297. 61220 ifvu<>zuthenprint"sie alter geizkragen  dafuer gibts nichts":gosub56000:le=le+1:goto315
  298. 61300 ifvu<>zuthenprint"das u boot ist weg    keine punkte":gosub56000:le=le+1:goto315
  299. 61310 ifvu=zuthenprint"das war spitze        1000 punkte":le=le+1:p1=p1+1000:gosub56000:goto315
  300. 61400 ifvu=zuthenprint"nicht besonders gut   50 punkte":le=le+1:p1=p1+50:gosub56000:goto315
  301. 61420 ifvu<>zuthenprint"sie schwein           keine punkte":gosub56000:le=le+1:goto315
  302. 62000 gosub63000
  303. 62020 print"[147]sie sind zu tief      getaucht"
  304. 62025 print"was tun"
  305. 62040 print"1  wenig atmen"
  306. 62050 print"2  volle kraft vor"
  307. 62060 print"3  aufgeben  "
  308. 62070 zu=int(rnd(1)*3)+1
  309. 62080 getvu
  310. 62090 ifvu=1then62200
  311. 62100 ifvu=2then62300
  312. 62110 ifvu=3then62400
  313. 62120 ifvu<>1orvu<>2orvu<>3then62080
  314. 62130 printa$
  315. 62200 ifvu=zuthenprint"geschafft             500 punkte":le=1:p1=p1+500:gosub56000:goto315
  316. 62220 ifvu<>zuthenprint"sie sind erstickt     dafuer gibts nichts":gosub56000:le=1:goto315
  317. 62300 ifvu<>zuthenprint"u 96 ist explodiert   keine punkte":gosub56000:le=1:goto315
  318. 62310 ifvu=zuthenprint"sie sind aufgetaucht  1000 punkte":le=1:p1=p1+1000:gosub56000:goto315
  319. 62400 ifvu=zuthenprint"sie realist           200 punkte":le=1:p1=p1+200:gosub56000:goto315
  320. 62420 ifvu<>zuthenprint"tja aufgegeben und wegkeine punkte":gosub56000:le=1:goto315
  321. 63000 print"[158]chance stage"
  322. 63010 pokeqw,6:pokezx,151:forw=1to10:next:pokeqw,0:pokezx,0:fort=1to3000:next:return
  323.